home *** CD-ROM | disk | FTP | other *** search
- on mouseUp
- global nVr
- if rollOver(28) then
- set the member of sprite 28 to member "BoutMod_3_A/4" of castLib "elementos graficos"
- puppetSprite(28, 0)
- updateStage()
- set nVr to 4
- go("ini vr")
- end if
- end
-
- on mouseDown
- repeat while the stillDown
- puppetSprite(28, 1)
- if rollOver(28) then
- set the member of sprite 28 to member "BoutMod_3_B/4" of castLib "elementos graficos"
- else
- set the member of sprite 28 to member "BoutMod_3_A/4" of castLib "elementos graficos"
- end if
- updateStage()
- end repeat
- end
-